home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / Raise.ass < prev    next >
Encoding:
Text File  |  2000-02-13  |  440 b   |  27 lines

  1. ; d0 - exception
  2. ; d1 - exceptioninfo
  3.  
  4.     xdef    _Raise
  5.     xdef    _exception
  6.     xdef    _exceptioninfo
  7.     xdef    lastexceptptr
  8.     xdef    laststackptr
  9.  
  10. _Raise    move.l    d0,_exception
  11.     move.l    d1,_exceptioninfo
  12.     move.l    lastexceptptr,d0
  13.     beq.s    .exit
  14.     move.l    laststackptr,a7
  15.     move.l    (a7)+,laststackptr
  16.     move.l    (a7)+,lastexceptptr
  17.     move.l    d0,a0
  18.     jmp    (a0)
  19. .exit    jmp    mainend
  20.  
  21. _exception    dc.l    0
  22. _exceptioninfo    dc.l    0
  23. lastexceptptr    dc.l    0
  24. laststackptr    dc.l    0
  25.  
  26.     xref    mainend
  27.